home *** CD-ROM | disk | FTP | other *** search
/ System Booster / System Booster.iso / Archives / Timing / UpTime17.lha / UpTime / scripts / NewFileNames < prev    next >
Encoding:
Text File  |  1994-01-10  |  1.4 KB  |  50 lines
  1. ;
  2. ;   $VER: NewFileNames 1.1 (09.01.94)
  3. ;
  4. ;   Written 20. September 1993 by J.Matern
  5. ;   This file is part of the 'UpTime'-package © by Jürgen Matern.
  6. ;   The package may be redistributed under limitations discribed
  7. ;   in the file 'UpTime.doc' which should have come with this
  8. ;   distribution. Read this file for more information!
  9. ;
  10. ;   Last changed: 9. January 1994
  11. ;
  12. set UpBaseName S:UpTime
  13. if exists ENV:UpTime/UpBaseName
  14.    set UpBaseName `getenv UpTime/UpBaseName`
  15. endif
  16.  
  17. set LogBaseName S:LogFile
  18. if exists ENV:UpTime/LogBaseName
  19.    set LogBaseName `getenv UpTime/LogBaseName`
  20. endif
  21.  
  22. set OnOffBaseName S:OnOff
  23. if exists ENV:UpTime/OnOffBaseName
  24.    set OnOffBaseName `getenv UpTime/OnOffBaseName`
  25. endif
  26.  
  27. set date `date`
  28. set date `echo $date len 2`
  29. set year `echo "$date" first 4 len 2`
  30. unset date
  31.  
  32. set UpFileName `echo $UpBaseName.$year`
  33. set LogFileName `echo $LogBaseName.$year`
  34. set OnOffFileName `echo $OnOffBaseName.$year`
  35.  
  36. setenv UpTime/UpFileName $UpFileName
  37. copy ENV:UpTime/UpFileName ENVARC:UpTime/UpFileName
  38. setenv UpTime/LogFileName $LogFileName
  39. copy ENV:UpTime/LogFileName ENVARC:UpTime/LogFileName
  40. setenv UpTime/OnOffFileName $OnOffFileName
  41. copy ENV:UpTime/OnOffFileName ENVARC:UpTime/OnOffFileName
  42.  
  43. unset year
  44. unset UpFileName
  45. unset LogFileName
  46. unset UpBaseName
  47. unset LogBaseName
  48. unset OnOffBaseName
  49. ; don't "unset OnOffFileName"; it's needed in file "S:CheckBootDate"
  50.